<%
dim conn
 set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={sql server};Server=.;Uid=sa;Pwd=123456;Database=yscdaigou"
 
 	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		Response.End
	End If




 spname="上海紫博蓝网络科技有限公司"
 partner="1215736801"                                              '财付通商户号
 key="zbl029c3fb88e6e994d90d9f97cd4aab"                    								 '财付通密钥
 return_url="http://www.1gbru.com/tenpay/return_url.asp"         	         '显示支付结果页面,*替换成return_url.asp所在路径
 notify_url="http://www.1gbru.com/tenpay/notify_url.asp"              		 '支付完成后的回调处理页面,*替换成notify_url.asp所在路径
%>